home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / t_os / vdtwn / tvf / asmhd6 / tw1hd6 / zoom2.hd6 < prev    next >
Text File  |  1993-07-08  |  1KB  |  91 lines
  1. ds_name        db    '\KOMEI\実物\tvf_prg\ZOOM2',0
  2.  
  3.  
  4. paint_wd:
  5. re_paint:
  6. mouse_in:
  7.      ret
  8.  
  9. be_called:
  10.      push ebp
  11.      push ds
  12.      push es
  13.      mov ax,1ch
  14.      mov ds,ax
  15.      mov es,ax
  16.  
  17.  
  18. ;===== ZOOM UP mode2 =====
  19.  
  20.         align    4
  21. zoom_up2:    mov    ah,7    ;水平移動範囲指定
  22.         mov    dx,0
  23.         mov    bx,240
  24.         call    MOUSE     ;pword ptr fs:[MB]
  25.         mov    ah,8    ;垂直移動範囲指定
  26.         mov    dx,0
  27.         mov    bx,160
  28.         call    MOUSE    ;pword ptr fs:[MB]
  29. #zoom_up2:    call    MOUSE1   ; pword ptr fs:[MSR]
  30.         mov    ah,03h            ;位置読み取り
  31.         call    MOUSE    ;pword ptr fs:[MB]
  32.         movzx    eax,dx
  33.         movzx    esi,bx
  34.         imul    esi,400h        ;SourceＶＲＡＭ座標算出
  35.         shl    eax,1
  36.         add    esi,eax
  37.         mov    edi,40000h        ;DestinationＶＲＡＭ座標(^^;)
  38.  
  39.         mov    ebp,400h-6    ;work
  40.         mov    edx,400h*2
  41.         mov    ecx,80/2
  42. ;拡大率は、３倍
  43.         align    4
  44. #drawing2:    push    ecx
  45.         mov    cl,16
  46.     REPT    2
  47.         REPT    120
  48.         lodsw
  49.         mov    ebx,eax    ;この方が早い
  50.         shl    eax,cl
  51.         mov    ax,bx
  52.         stosd
  53.         stosw
  54.         add    edi,ebp
  55.         stosd
  56.         stosw
  57.         add    edi,ebp
  58.         stosd
  59.         stosw
  60.         sub    edi,edx
  61.         ENDM
  62.         add    esi,400h-120*2
  63.         add    edi,400h*3-360*2
  64.     ENDM
  65.         pop    ecx
  66.         dec    ecx
  67.         jnz    #drawing2
  68.  
  69.         mov    ax,0901h
  70.         int    90h
  71.         xor    dh,0FFh
  72.         je    #zoom_up2
  73.  
  74.       pop es
  75.      pop ds
  76.      pop ebp
  77.      ret
  78.  
  79.  
  80.  
  81. look_me:
  82.      call sub_esi
  83.      dd 0,0
  84.      dw     0,0,80,42,20,30,15,1,0,0
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.